home *** CD-ROM | disk | FTP | other *** search
/ USGS: Oil & Gas Fields of Asia Pacific / USGS Maps Showing Geology, Oil & Gas Fields of Asia Pacific.iso / pc / ASPAC / VIEWS03 / SCRIPTS / AUS.AVE next >
Text File  |  1999-03-10  |  1KB  |  35 lines
  1. ' aus.ave
  2. ' Display Australia and New Zealand Geology Map
  3. ' Douglas Steinshouer 11/16/1998
  4. ' GeoLukas for USGS GEO CERT World Energy Project
  5. ' Thomas Ahlbrandt  Project Chief
  6.  
  7. region3 = av.GetProject
  8. theView = region3.FindDoc("Plate 3:  Australia and New Zealand Geology, Oil/Gas Fields and Geologic Provinces")
  9. mapzoom = Rect.MakeXY(-4163000,-4317000, 4729000,3184000)
  10. theView.GetDisplay.ZoomToRect(mapzoom)
  11. reg3DocWin = theView.GetWin
  12. reg3DocWin.Open
  13. reg3DocWin.Maximize
  14.  
  15. t2 = theView.GetThemes.Get(0)
  16. t2.SetActive(true)
  17. t2.GetGraphics.SelectLabels
  18. t2.GetGraphics.Invalidate
  19. theView.GetGraphics.ClearSelected
  20.  
  21. citylabel = Labeler.Make(mapzoom)
  22. citylabel.SetFeatureWeight(#LABEL_WEIGHT_NO)
  23. citylabel.SetLabelWeight(#LABEL_WEIGHT_HIGH)    
  24. citysymbol = TextSymbol.Make
  25. citysymbol.SetFont(Font.Make("Univers","Italic"))
  26. citysymbol.SetSize(10)
  27. t2.SetLabelTextSym(citysymbol)
  28. citylabel.Load(t2)
  29. theView.GetAutoLabels(citylabel,true)
  30.  
  31. ts = theView.GetThemes
  32.   for each t in ts
  33.     t.SetActive(false)
  34.   end
  35.